##### SCRIPT QUE GERA A TABELA 3 #####

# 1. CARREGA PACOTES ------------------------------------------------------

library(tidyverse)
library(janitor)
library(naniar)
library(xlsx)

# 2. CARREGA DADOS --------------------------------------------------------

#' Nesta etapa, foi implementada a leitura dos dados combinados de Enade-RAIS

# 3. GERA A TABELA --------------------------------------------------------

tab_3 <- dados_graduados_empregados %>%
   dplyr::select(area_curso_agreg, setor_ies_bin, tp_sexo, raca_cor, edu_fam, 
                 idade_faixa, regiao_curso, nt_ce_quartil, nt_fg_quartil, trab_grad) %>% 
   filter(!is.na(area_curso_agreg)) %>% 
   group_by(area_curso_agreg, setor_ies_bin) %>% 
   naniar::miss_var_summary() %>% 
   ungroup() %>% 
   filter(n_miss > 0) %>% 
   select(-n_miss) %>% 
   spread(variable, pct_miss)

# 4. EXPORTA A TABELA -----------------------------------------------------

write.xlsx(data.frame(tab_3), 
           file = "./output/tabela_4_1834.xlsx", 
           sheetName = "raw", 
           row.names = F)
   